MacWorld 1998 February/Macworld (1998-02).dmg/Inside Macworld/Alphamania 2 & Effector Sets/AlphaMania 2/methods and modes.dir/00018.ls

Text File | 1997-12-19 | 1.2 KB | 42 lines

on Init
  global kCandyHeartSprite, kCandyStartPoint
  set kCandyHeartSprite to 15
  set the drawMethod of member "candyheart" to #normal
  set kCandyStartPoint to point(the locH of sprite kCandyHeartSprite, the locV of sprite kCandyHeartSprite)
  UpdateOutput("normal")
end

on VerifyEffect fxSym
  set fxList to GetListOfAllEffects(member "candyheart")
  return getPos(fxList, fxSym)
end

on UpdateOutput fName
  set the textStyle of member "output" to "plain"
  put field fName into field "output"
  set the textStyle of member "output" to "plain"
end

on CenterSprite
  global kCandyStartPoint, kCandyHeartSprite
  set the locH of sprite kCandyHeartSprite to the locH of kCandyStartPoint
  set the locV of sprite kCandyHeartSprite to the locV of kCandyStartPoint
  updateStage()
end

on StylizeOutput
  set hit1 to "the sourceMember"
  set hit2 to "the sourcePosition"
  ScanAndBold("output", hit1)
  ScanAndBold("output", hit2)
end

on ScanAndBold fName, hit
  if field fName contains hit then
    set whereStart to offset(hit, field fName)
    if whereStart then
      set the textStyle of char whereStart to whereStart + length(hit) of field fName to "bold"
    end if
  end if
end